home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Beyond Sanit-E 4
/
Beyond Sanit-E 4 (Disk 2 of 2).adf
/
BS3Install.HD
< prev
next >
Wrap
Text File
|
1995-11-27
|
2KB
|
75 lines
; ** Beyond Sanit-e Installer. **
; ** (c) SLADE - PTK 1996. **
; ** This Installer is full of comment. I have commented it this much **
; ** so you could use to as a tutorial to teach yourself. Have Fun!!. **
(complete 0)
(set BS-E-dest
(askdir
(prompt "Please Select or create a drawer to install Beyond>Sanit-E<THREE:")
(help ask-dirhelp
"\n"
"This will ask you to give a destination drawer to "
"which this issue will be installed.\n")
(default @default-dest)
)
)
(set @default-dest BS-E-dest)
(complete 30)
(
(working "Installing Beyond>Sanit-E<III(DISK-1)...")
(copyfiles
(prompt "")
(help @copyfiles-help)
(source "Beyond>Sanit-E<III(DISK-1):")
(dest @default-dest)
(pattern "#?")
(infos)
)
)
(complete 50)
(
(Working "installing Beyond>Sanit-E<III(DISK-2)...")
(copyfiles
(prompt "")
(help @copyfiles-help)
(source "Beyond>Sanit-E<III(DISK-2):")
(dest @default-dest)
(pattern "#?")
(INFOS)
)
)
(complete 70)
(startup "Beyond>Sanit-E<THREE:"
(prompt "The following assigns, \n"
"ASSIGN BEYOND>SANIT-E<III(DISK-1):\n"
"ASSIGN BEYOND>SANIT-E<III(DISK-2): to " BS-E-dest ""
"\n"
"will be added to your user-startup")
(help "This adds the needed assigns to your user-startup")
(command "ASSIGN Beyond>Sanit-E<III(DISK-1): " BS-E-dest "\n")
(command "ASSIGN BEYOND>sanit-E<III(DISK-2): " BS-E-dest "")
)
(complete 100)
(exit)
; ** I hope it was a good for you as it was for me.!!
; ** Cheers SLADE/PTK.